home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / bbs / Ss9817.lha / SS98.dd < prev    next >
Text File  |  1998-02-02  |  31KB  |  598 lines
  1. /* Soccer ShootOut98 v1.7 By Xpose */
  2. Parse Arg node;Options results;nodeid="DREAMREXX"node;address value nodeid;
  3. transmit " "
  4. KEEP = "Pagliuca"
  5. MENU:;transmit " "
  6. SHOT = 10
  7. GLS = 10
  8.  
  9. transmit "                                                                          "
  10. transmit "       \                                                                / "
  11. transmit "        \                                                              /  "
  12. transmit "         \ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _/   "
  13. transmit "          |                                                          |    "
  14. transmit "          |                                                          |    "
  15. transmit "          |                                      Soccer ShootOut `98 |    "
  16. transmit "          |                                                          |    "
  17. transmit "          |                                                          |          "
  18. transmit "          |                                                          |        "
  19. transmit "          |                                                          |    "
  20. transmit "          |                                                          |    "
  21. transmit "______ ___|________________   __ __ __  _  ____ ____  ___  ____ _____|___ ______"
  22. transmit "                                                                                "
  23. transmit ""
  24. transmit "           [ S ] Shoot Away !        [ Q ]        Select Keeper [ K ]           "
  25. transmit "                                       U"
  26. transmit "-------------------------------------- I ---------------------------------------"
  27. transmit "                                       T";getchar
  28.  
  29. if result = "RESULT" then call MENU;if result = "s" then call PLAY;if result = "k" then call KSELECT;if result = "q" then SHUTDOWN
  30. call MENU
  31.  
  32. KSELECT:
  33.  
  34. call open(KST,'DOORS:KPLIST.DAT','R')
  35. KEEP1 = STRIP(readln(KST))
  36. KEEP2 = STRIP(readln(KST))
  37. KEEP3 = STRIP(readln(KST))
  38. KEEP4 = STRIP(readln(KST))
  39. KEEP5 = STRIP(readln(KST))
  40. KEEP6 = STRIP(readln(KST))
  41. KEEP7 = STRIP(readln(KST))
  42. KEEP8 = STRIP(readln(KST))
  43. transmit " ";transmit "Select opponent keeper According to order (ie 1,2,3,...):";newline;newline
  44. fifoexecute "type DOORS:KPLIST.DAT";getchar
  45. if result = 1 then KEEP = KEEP1;if result = 2 then KEEP = KEEP2;if result = 3 then KEEP = KEEP3;if result = 4 then KEEP = KEEP4;if result = 5 then KEEP = KEEP5;if result = 6 then KEEP = KEEP6;if result = 7 then KEEP = KEEP7;if result = 8 then KEEP = KEEP8;transmit "Keeper chosen. Press any key";getchar
  46. transmit KEEP;getchar
  47. call MENU
  48.  
  49. PLAY:;transmit " ";
  50.  
  51. transmit "        _________   "
  52. transmit "       |1   2   3|  "
  53. transmit "       |4   5   6|  "
  54. transmit "      ~~~~~~~~~~~~~ ";newline
  55. transmit "Select shooting Angle";getchar;HOT = result
  56. transmit " ";
  57. transmit "                   ±±±                                    ±±±"
  58. transmit "                   ±                                        ±"
  59. transmit "                                                             "
  60. transmit "                                                             "
  61. transmit "                                                             "
  62. transmit "                                              _              "
  63. transmit "                            .               .| \             "
  64. transmit "                    ________X___.___________Y|__\___________ "
  65. transmit "                   ±                                        ±"
  66. transmit "                   ±±±                                    ±±±"
  67. transmit " ";
  68.  
  69. transmit "                   ±±±                                    ±±±"
  70. transmit "                   ±                                        ±"
  71. transmit "                                                             "
  72. transmit "                                                             "
  73. transmit "                                                             "
  74. transmit "                                              _              "
  75. transmit "                             .              .| \             "
  76. transmit "                    _________Y__.___________Y|__\___________ "
  77. transmit "                   ±                                        ±"
  78. transmit "                   ±±±                                    ±±±"
  79.  
  80. transmit " "
  81. transmit "                   ±±±                                    ±±±"
  82. transmit "                   ±                                        ±"
  83. transmit "                                                             "
  84. transmit "                                                             "
  85. transmit "                                                             "
  86. transmit "                                              _              "
  87. transmit "                              .             .| \             "
  88. transmit "                    __________X_.___________Y|__\___________ "
  89. transmit "                   ±                                        ±"
  90. transmit "                   ±±±                                    ±±±"
  91.  
  92. transmit " "
  93. transmit "                   ±±±                                    ±±±"
  94. transmit "                   ±                                        ±"
  95. transmit